home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).adf / Beas_Lotto / BeasLotto / BeasLotto.amosSourceCode < prev   
AMOS Source Code  |  1989-07-03  |  7KB  |  295 lines
  1. Screen Open 0,320,200,16,Lowres
  2. Load "x.abk"
  3. Music 1
  4. Tempo 19
  5. Load Iff "bea",1
  6. Goto SHORTS
  7. MAIN:
  8. Print At(5,10);"   "
  9. Print At(10,10);"   "
  10. Print At(15,10);"   "
  11. Print At(5,15);"   "
  12. Print At(10,15);"   "
  13. Print At(15,15);"   "
  14. AJ:
  15. A=Rnd(49)
  16. If A>49 Then A=A-51
  17. If A<0 Then A=A+10
  18. If A=0 Then A=A+8
  19. If A>49 Then A=A-51
  20. If A<0 Then A=A+10
  21. If A=0 Then A=A+8
  22. If A>49 Then A=A-51
  23. If A<0 Then A=A+10
  24. If A=0 Then A=A+8
  25. If A>49 Then A=A-51
  26. If A<0 and A>-49 Then A=A+51
  27. If A=0 Then A=A+8
  28. Print At(5,10);A
  29. C=Mouse Click
  30. If C=0 Then Goto AJ
  31. Print At(5,10);A
  32. If A=0 Then Print At(5,10);" 01"
  33. If A=1 Then Print At(5,10);" 01"
  34. If A=2 Then Print At(5,10);" 02"
  35. If A=3 Then Print At(5,10);" 03"
  36. If A=4 Then Print At(5,10);" 04"
  37. If A=5 Then Print At(5,10);" 05"
  38. If A=6 Then Print At(5,10);" 06"
  39. If A=7 Then Print At(5,10);" 07"
  40. If A=8 Then Print At(5,10);" 08"
  41. If A=9 Then Print At(5,10);" 09"
  42. XTC:
  43. B=Rnd(49)
  44. If B>49 Then B=B-51
  45. If B<0 Then B=B+14
  46. If B=0 Then B=B+11
  47. If B=A Then B=B-1
  48. If B>49 Then B=B-51
  49. If B<0 Then B=B+14
  50. If B=0 Then B=B+11
  51. If B=A Then B=B-1
  52. If B>49 Then B=B-51
  53. If B<0 Then B=B+14
  54. If B=0 Then B=B+11
  55. If B=A Then B=B-1
  56. If B>49 Then B=B-51
  57. If B<0 and B>-49 Then B=B+51
  58. If B=0 Then B=B+11
  59. If B=A Then B=B-1
  60. Print At(10,10);B
  61. C=Mouse Click
  62. If C=0 Then Goto XTC
  63. Print At(10,10);B
  64. If B=0 Then Print At(10,10);" 01"
  65. If B=1 Then Print At(10,10);" 01"
  66. If B=2 Then Print At(10,10);" 02"
  67. If B=3 Then Print At(10,10);" 03"
  68. If B=4 Then Print At(10,10);" 04"
  69. If B=5 Then Print At(10,10);" 05"
  70. If B=6 Then Print At(10,10);" 06"
  71. If B=7 Then Print At(10,10);" 07"
  72. If B=8 Then Print At(10,10);" 08"
  73. If B=9 Then Print At(10,10);" 09"
  74. J:
  75. R=Rnd(49)
  76. If R>49 Then R=R-51
  77. If R<0 Then R=R+7
  78. If R=0 Then R=R+32
  79. If R=A Then R=R-1
  80. If R=B Then R=R-1
  81. If R>49 Then R=R-51
  82. If R<0 Then R=R+7
  83. If R=0 Then R=R+32
  84. If R=A Then R=R-1
  85. If R=B Then R=R-1
  86. If R>49 Then R=R-51
  87. If R<0 Then R=R+7
  88. If R=0 Then R=R+32
  89. If R=A Then R=R-1
  90. If R=B Then R=R-1
  91. If R>49 Then R=R-51
  92. If R<0 Then R=R+7
  93. If R=0 Then R=R+32
  94. If R=A Then R=R-1
  95. If R=B Then R=R-1
  96. If R>49 Then R=R-51
  97. If R<0 and R>-49 Then R=R+51
  98. If R=0 Then R=R+32
  99. If R=A Then R=R-1
  100. If R=B Then R=R-1
  101. Print At(15,10);R
  102. C=Mouse Click
  103. If C=0 Then Goto J
  104. Print At(15,10);R
  105. If R=0 Then Print At(15,10);" 01"
  106. If R=1 Then Print At(15,10);" 01"
  107. If R=2 Then Print At(15,10);" 02"
  108. If R=3 Then Print At(15,10);" 03"
  109. If R=4 Then Print At(15,10);" 04"
  110. If R=5 Then Print At(15,10);" 05"
  111. If R=6 Then Print At(15,10);" 06"
  112. If R=7 Then Print At(15,10);" 07"
  113. If R=8 Then Print At(15,10);" 08"
  114. If R=9 Then Print At(15,10);" 09"
  115. TC:
  116. D=Rnd(49)
  117. If D>49 Then D=D-51
  118. If D<0 Then D=D+16
  119. If D=0 Then D=D+6
  120. If D=A Then D=D-1
  121. If D=B Then D=D-1
  122. If D=R Then D=D-1
  123. If D>49 Then D=D-51
  124. If D<0 Then D=D+16
  125. If D=0 Then D=D+6
  126. If D=A Then D=D-1
  127. If D=B Then D=D-1
  128. If D=R Then D=D-1
  129. If D>49 Then D=D-51
  130. If D<0 Then D=D+16
  131. If D=0 Then D=D+6
  132. If D=A Then D=D-1
  133. If D=B Then D=D-1
  134. If D=R Then D=D-1
  135. If D>49 Then D=D-51
  136. If D<0 Then D=D+16
  137. If D=0 Then D=D+6
  138. If D=A Then D=D-1
  139. If D=B Then D=D-1
  140. If D=R Then D=D-1
  141. If D>49 Then D=D-51
  142. If D<0 and D>-49 Then D=D+51
  143. If D=0 Then D=D+6
  144. If D=A Then D=D-1
  145. If D=B Then D=D-1
  146. If D=R Then D=D-1
  147. Print At(5,15);D
  148. C=Mouse Click
  149. If C=0 Then Goto TC
  150. Print At(5,15);D
  151. If D=0 Then Print At(5,15);" 01"
  152. If D=1 Then Print At(5,15);" 01"
  153. If D=2 Then Print At(5,15);" 02"
  154. If D=3 Then Print At(5,15);" 03"
  155. If D=4 Then Print At(5,15);" 04"
  156. If D=5 Then Print At(5,15);" 05"
  157. If D=6 Then Print At(5,15);" 06"
  158. If D=7 Then Print At(5,15);" 07"
  159. If D=8 Then Print At(5,15);" 08"
  160. If D=9 Then Print At(5,15);" 09"
  161. HAJ:
  162. T=Rnd(49)
  163. If T>49 Then T=T-51
  164. If T<0 Then T=T+5
  165. If T=0 Then T=T+28
  166. If T=A Then T=T-1
  167. If T=B Then T=T-1
  168. If T=R Then T=T-1
  169. If T=D Then T=T-1
  170. If T>49 Then T=T-51
  171. If T<0 Then T=T+5
  172. If T=0 Then T=T+28
  173. If T=A Then T=T-1
  174. If T=B Then T=T-1
  175. If T=R Then T=T-1
  176. If T=D Then T=T-1
  177. If T>49 Then T=T-51
  178. If T<0 Then T=T+5
  179. If T=0 Then T=T+28
  180. If T=A Then T=T-1
  181. If T=B Then T=T-1
  182. If T=R Then T=T-1
  183. If T=D Then T=T-1
  184. If T>49 Then T=T-51
  185. If T<0 Then T=T+5
  186. If T=0 Then T=T+28
  187. If T=A Then T=T-1
  188. If T=B Then T=T-1
  189. If T=R Then T=T-1
  190. If T=D Then T=T-1
  191. If T>49 Then T=T-51
  192. If T<0 and T>-49 Then T=T+51
  193. If T=0 Then T=T+28
  194. If T=A Then T=T-1
  195. If T=B Then T=T-1
  196. If T=R Then T=T-1
  197. If T=D Then T=T-1
  198. Print At(10,15);T
  199. C=Mouse Click
  200. If C=0 Then Goto HAJ
  201. Print At(10,15);T
  202. If T=0 Then Print At(10,15);" 01"
  203. If T=1 Then Print At(10,15);" 01"
  204. If T=2 Then Print At(10,15);" 02"
  205. If T=3 Then Print At(10,15);" 03"
  206. If T=4 Then Print At(10,15);" 04"
  207. If T=5 Then Print At(10,15);" 05"
  208. If T=6 Then Print At(10,15);" 06"
  209. If T=7 Then Print At(10,15);" 07"
  210. If T=8 Then Print At(10,15);" 08"
  211. If T=9 Then Print At(10,15);" 09"
  212. XT:
  213. Q=Rnd(49)
  214. If Q>49 Then Q=Q-51
  215. If Q<0 Then Q=Q+51
  216. If Q=0 Then Q=Q+1
  217. If Q=A Then Q=Q-1
  218. If Q=B Then Q=Q-1
  219. If Q=R Then Q=Q-1
  220. If Q=D Then Q=Q-1
  221. If Q=T Then Q=Q-1
  222. If Q>49 Then Q=Q-51
  223. If Q<0 Then Q=Q+13
  224. If Q=0 Then Q=Q+1
  225. If Q=A Then Q=Q-1
  226. If Q=B Then Q=Q-1
  227. If Q=R Then Q=Q-1
  228. If Q=D Then Q=Q-1
  229. If Q=T Then Q=Q-1
  230. If Q>49 Then Q=Q-51
  231. If Q<0 Then Q=Q+13
  232. If Q=0 Then Q=Q+1
  233. If Q=A Then Q=Q-1
  234. If Q=B Then Q=Q-1
  235. If Q=R Then Q=Q-1
  236. If Q=D Then Q=Q-1
  237. If Q=T Then Q=Q-1
  238. If Q>49 Then Q=Q-51
  239. If Q<0 Then Q=Q+13
  240. If Q=0 Then Q=Q+1
  241. If Q=A Then Q=Q-1
  242. If Q=B Then Q=Q-1
  243. If Q=R Then Q=Q-1
  244. If Q=D Then Q=Q-1
  245. If Q=T Then Q=Q-1
  246. If Q>49 Then Q=Q-51
  247. If Q<0 and Q>-49 Then Q=Q+51
  248. If Q=0 Then Q=Q+1
  249. If Q=A Then Q=Q-1
  250. If Q=B Then Q=Q-1
  251. If Q=R Then Q=Q-1
  252. If Q=D Then Q=Q-1
  253. If Q=T Then Q=Q-1
  254. Print At(15,15);Q
  255. C=Mouse Click
  256. If C=0 Then Goto XT
  257. Print At(15,15);Q
  258. If Q=0 Then Print At(15,15);" 01"
  259. If Q=1 Then Print At(15,15);" 01"
  260. If Q=2 Then Print At(15,15);" 02"
  261. If Q=3 Then Print At(15,15);" 03"
  262. If Q=4 Then Print At(15,15);" 04"
  263. If Q=5 Then Print At(15,15);" 05"
  264. If Q=6 Then Print At(15,15);" 06"
  265. If Q=7 Then Print At(15,15);" 07"
  266. If Q=8 Then Print At(15,15);" 08"
  267. If Q=9 Then Print At(15,15);" 09"
  268. If A<0 Then A=A*(-1)
  269. If B<0 Then B=B*(-1)
  270. If R<0 Then R=R*(-1)
  271. If D<0 Then D=D*(-1)
  272. If T<0 Then T=T*(-1)
  273. If Q<0 Then Q=Q*(-1)
  274. If A>49 or A=0 Then Print At(5,10);"XXX"
  275. If B>49 or B=0 or B=A Then Print At(10,10);"XXX"
  276. If R>49 or R=0 or R=A or R=B Then Print At(15,10);"XXX"
  277. If D>49 or D=0 or D=A or D=B or D=R Then Print At(5,15);"XXX"
  278. If T>49 or T=0 or T=A or T=B or T=R or T=D Then Print At(10,15);"XXX"
  279. If Q>49 or Q=0 or Q=A or Q=B or Q=R or Q=D or Q=T Then Print At(15,15);"XXX"
  280. Print At(4,20);"  CLICK  MOUSE  "
  281. Print At(4,22);"FOR NEW NUMBERS!"
  282. ALCOROS:
  283. C=Mouse Click
  284. If C<>0 Then Goto LONDONCONDOMS
  285. If C=0 Then Goto ALCOROS
  286. LONDONCONDOMS:
  287. Print At(4,20);"  CLICK  MOUSE  "
  288. Print At(4,22);" TO GET NUMBERS "
  289. Goto MAIN
  290. SHORTS:
  291. Print At(4,20);"  CLICK  MOUSE  "
  292. Print At(4,22);" BAKCM  IN  '90 "
  293. C=Mouse Click
  294. If C<>0 Then Goto LONDONCONDOMS
  295. If C=0 Then Goto SHORTS